(symbols "pid" 'pico)

(local *CachedPid)

(de pico~pid ()
  (default *CachedPid
    (thread "java.lang.management.ManagementFactory"
      (java "getRuntimeMXBean")
      (java+ "getName")
      chop
      (split "@")
      car
      format) ) )